home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Killer Drive 64 4
/
Killer-Drive_64_04_1998_-_de_Side_B.d64
/
kopfjustage 1541
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
40 lines
0 rem"* disk-exerciser by h.gehrmann hgss * "(NULL)
9 rem"* disk-exerciser by h.gehrmann hgss * "(NULL)
10 poke53280,5:poke53281,7:rem disk-exercise
20 print"[147] disk-exerciser by hg-software systems [146]
25 [153]"disk-status during exercise:"
27 [153]"stoptime of reading (must be <9):"
28 [141]110
30 a1$[178]"":a2$[178]" cmdcmdcmdcmdcmdcmdcmdcmd"
35 a1$[178]a1$[170]" cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd"
40 [159]5,8,15:[159]4,8,3,"#":[159]1,8,15
50 ti$[178]"000000":[152]5,"b-r";3;0;1;1:[152]5,"b-p"3;1:[161]#4,a$
60 [143]
70 [152]5,"b-r";3;0;35;2:[152]5,"b-p"3;1:[161]#4,a$
80 [132]1,x1,x2$,x3,x4:[153]a1$;x1;x2$;x3;x4:zw[178]ti
90 [153]a2$;zw:[139]zw[179]9[167][129]w[178]1[164]1000:[130]w:[137]160
100 [137]50
110 [153]"verifydieses programm trainiert das positio-";
120 [153]"ren des tonkopfes seitens des disketten-";
130 [153]"laufwerkes. wenn eine ausreichende zeit";
140 [153]"erreicht ist, geht es mit der naechsten";
150 [153]"uebung weiter.":[142]
160 [160]4:[160]5:[160]1
170 [159]1,8,15
180 [153]a2$;"onnow initializing! "
190 [129]w[178]1[164]10:[152]1,"i":[132]1,x1,x2$,x3,x4:[153]a1$;x1;x2$;x3;x4:[130]w
200 [160]1
210 [153]"load disk-drive and disk has trespassed ";
220 [153]" exercising "
230 [153]"stopdurch diese prozedur..."
240 [153]"...hat sich der tonkopf optimalwait positio-";
250 [153]" niert
260 print"...haben sie somit reparaturgeld und re-";
270 print" paraturwartezeit gespart"
280 print"...hat der schrittmotor wieder ein bis-";
290 print" chen uebung bekommen und sie sparen";
300 print" positionierungszeit"
310 print"[149]holger gehrmann[141]heinrichstr. 25[141]3000 hannover 1[141]tel:0511/344771"
320 print"tausch von c=64[141]programmen !!!!
330 [153]"sys";: